home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Grapevine 20
/
Grapevine 20 (Disk 1 of 2).adf
/
Files
/
arexxexamps.lha
/
ARTICLES
/
AREXX_EXAMPLES
/
Example10.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1980-01-07
|
488b
|
16 lines
/* Example 10 */
Say "Enter Group Name : "
Parse Pull gname
gname = upper(gname) /* Up Case All Characters */
Select
When gname = "LSD " Then Say "Grapevine is the Best."
When gname = "THE LOC" Then Do
Say "Erotic Stories 5 ECS"
Say "and AGA Versions Out Now !!"
End
When gname = "SCOOPEX " Then Say "Bag Of Shite Of A Group !!!"
Otherwise Say "Which Group Is That Sorry ???"
End